home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / mui / MCC_Busy2_2.lha / MCC_Busy / MCC_Busy-Install < prev    next >
Text File  |  1996-10-26  |  1KB  |  58 lines
  1. ; $VER: MTP installer script 0.1
  2. ; (c) 1996 by kMel, Klaus Melchior
  3.  
  4. (set app_name "MCC_Busy")
  5. (set version "2.2")
  6. (set vers_name (cat app_name " " version))
  7.  
  8. (set bad_MUI_text "You must even be using MUI 3.2 to use Busy.mcc!")
  9. (set info_text "This script installs the Busy.mcc classes to\n'MUI:Libs/mui/'\n\n")
  10.  
  11. ; -------------------------------------------------------------------------
  12.  
  13. (transcript (cat "Installing " @vers_name " ..."))
  14.  
  15. (if    (< (/ (getversion "libs:muimaster.library") 65536) 13) (
  16.     (abort (cat info_text "\n\n\n" bad_MUI_text) )
  17. ))
  18.  
  19.  
  20. (procedure CopyClass
  21.  
  22.     (complete complete_level)
  23.     (set complete_level (+ complete_level complete_level_add))
  24.  
  25.     (copylib
  26.         (prompt (cat "Copying " class))
  27.         (confirm)
  28.         (source (cat src_path class))
  29.         (dest dst_path)
  30.         (help @copylib-help)
  31.     )
  32.  
  33. )
  34.  
  35.  
  36. ; -------------------------------------------------------------------------
  37. (complete 0)
  38.  
  39. (message info_text)
  40.  
  41. ; -------------------------------------------------------------------------
  42. (set complete_level 20)
  43. (set complete_level_add 20)
  44.  
  45. (set src_path "Libs/MUI/")
  46. (set dst_path "MUI:Libs/mui/")
  47.  
  48. (set class "Busy.mcc") (CopyClass)
  49. (set class "Busy.mcp") (CopyClass)
  50. (set class "Crawling.mcc") (CopyClass)
  51.  
  52. ; -------------------------------------------------------------------------
  53. (complete 100)
  54.  
  55. (exit "Installation complete!" (quiet))
  56.  
  57.  
  58.